home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / gui / gencodee_v24.lha / E / sources / Variable.e < prev   
Text File  |  1995-09-12  |  2KB  |  69 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4.  
  5. ->/////////////////////////////////////////////////////////////////////////////
  6. ->//////////////////////////////////////////////////////////// MODULE ... /////
  7. ->/////////////////////////////////////////////////////////////////////////////
  8. MODULE 'muibuilder' , 'libraries/muibuilder'
  9. MODULE 'utility/tagitem'
  10.  
  11.  
  12. ->/////////////////////////////////////////////////////////////////////////////
  13. ->//////////////////////////////////////////////// RAISE ... IF ... = ... /////
  14. ->/////////////////////////////////////////////////////////////////////////////
  15. RAISE    "MEM"    IF    String()    =    NIL
  16.  
  17.  
  18. ->/////////////////////////////////////////////////////////////////////////////
  19. ->//////////////////////////////////////////////////////////// OBJECT ... /////
  20. ->/////////////////////////////////////////////////////////////////////////////
  21. OBJECT variable
  22.     ident    :    PTR TO CHAR
  23.     type    :    LONG
  24.     size    :    LONG
  25.     init    :    LONG
  26. ENDOBJECT
  27.  
  28.  
  29. ->/////////////////////////////////////////////////////////////////////////////
  30. ->/////////////////////////////////////////////////// PROC init_variables /////
  31. ->/////////////////////////////////////////////////////////////////////////////
  32. PROC init_variables( number_vars )
  33.  
  34.     DEF vars : PTR TO variable , ident_length_max = 0
  35.     DEF ident : PTR TO CHAR , type , size , init
  36.     DEF i , tmp_ident : PTR TO CHAR
  37.  
  38.     NEW vars[ number_vars ]
  39.  
  40.     FOR i := 0 TO ( number_vars - 1 )
  41.  
  42.         Mb_GetVarInfoA( i ,
  43.                         [    MUIB_VARTYPE    , {type}    ,
  44.                             MUIB_VARNAME    , {ident}    ,
  45.                             MUIB_VARSIZE    , {size}    ,
  46.                             MUIB_VARINITPTR    , {init}    ,
  47.                             TAG_END ] )
  48.  
  49.         tmp_ident := String( StrLen( ident ) )
  50.         StrCopy( tmp_ident , ident )
  51.         IF ( type <> TYPEVAR_HOOK ) AND ( type <> TYPEVAR_IDENT ) AND ( type <> TYPEVAR_EXTERNAL )
  52.  
  53.             IF ( tmp_ident[] >= "A" ) AND ( tmp_ident[] <= "Z" ) THEN tmp_ident[] :=  tmp_ident[] + 32
  54.             IF EstrLen( tmp_ident ) >= 2 THEN
  55.                 IF ( tmp_ident[ 1 ] >= "A" ) AND ( tmp_ident[ 1 ] <= "Z" ) THEN tmp_ident[ 1 ] :=  tmp_ident[ 1 ] + 32
  56.  
  57.         ENDIF
  58.  
  59.         vars[ i ].ident := tmp_ident
  60.         vars[ i ].type := type
  61.         vars[ i ].size := size
  62.         vars[ i ].init := init
  63.  
  64.         IF EstrLen( tmp_ident ) > ident_length_max THEN ident_length_max := EstrLen( tmp_ident )
  65.  
  66.     ENDFOR
  67.  
  68. ENDPROC vars , ident_length_max
  69.